home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.26 / goldedmacropcq / pcqmake.rexx next >
OS/2 REXX Batch file  |  1995-04-23  |  1KB  |  39 lines
  1. /* $VER: 0.9, ©1993 Dietmar Eilert. Empty GoldED macro */
  2. /* 1994 für PCQ angepasst von Andreas Tetzl            */
  3.  
  4.  
  5.  
  6. OPTIONS RESULTS                             /* enable return codes     */
  7.  
  8. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  9.     address 'GOLDED.1'
  10.  
  11. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  12. OPTIONS FAILAT 6                            /* ignore warnings         */
  13. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  14.  
  15.  
  16. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  17.  
  18.  
  19. 'SAVE ALL'
  20. 'QUERY FILE VAR FILENAME'
  21. filename=Left(FileName,Length(FileName)-2)
  22. address command 'sys:pascal/make ' FileName
  23. /*               ^^^^^^^^^^^^^^^ ggf. anpassen, Pfadnamen des eigenen  */
  24. /*                               make-scripts eintragen                */
  25. /* Length(FileName)-2 gilt nebenbei NUR für die (.p)-Endung. Für Texte */
  26. /* mit (.pas) gilt Length(FileName)-4                       */
  27.  
  28.  
  29. /* ---------------------------- END OF YOUR CODE --------------------- */
  30.  
  31. 'UNLOCK' /* VERY important: unlock GUI */
  32. EXIT
  33.  
  34. SYNTAX:
  35.  
  36. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  37. 'UNLOCK'
  38. EXIT
  39.